home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / openprlg.sit / Open Prolog 1.0d26 / Open Prolog Startup < prev    next >
Encoding:
Text File  |  1991-12-20  |  334 b   |  9 lines
  1. 'system$alert'(X) :-
  2.         beep,
  3.         write('Warning: ''system$alert'' has been re-defined to take 4 arguments for display!'),
  4.         nl,
  5.         'system$alert'(X,'','','').
  6.  
  7. :- ((exists('Open Prolog Info'),'system$alert'('Please open and read the information file called ''Open Prolog Info'''));1=1).
  8. :- (play('Hello',7);1=1).
  9.